Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/MEDIALTH/HEART1.LZH/BYPASS06.TXT

Text File | 1985-11-25 | 7KB | 441 lines

\ONKEY 12813 MENU
\MOVE 0 TO #8
\MOVE 0 TO #9999
\*JUMP PAT-1
\MOVE 1 TO #1010
\JUMP HELLO
\X GRAFT
\SHOW #2,#3,2,2,X \MOVE 1 TO #9999
\WAIT NOW 1111
\IF #2=46
\IF #3=60
\ELSE
\JUMP GRAFT1
\ELSE
\JUMP GRAFT1
\ENDIF
\RETURN
\X GRAFT1
\MOVE #2 TO #4
\MOVE #3 TO #5
\MOVE B TO D
\IF D=18432
\SUBTRACT 3 FROM #3
\ELSE
\IF D=19712
\ADD 4 TO #2
\ELSE
\IF D=20480
\ADD 3 TO #3
\ELSE
\IF D=19200
\SUBTRACT 4 FROM #2
\ENDIF
\MOVE 0 TO B
\IF #2>220 \MOVE 220 TO #2 \ENDIF
\IF #3>180 \MOVE 180 TO #3 \ENDIF
\SHOW #4,#5,2,2,X \MOVE 0 TO #9999
\JUMP GRAFT
\X CURSOR
\SHOW #2,#3,34,34,X \MOVE 1 TO #9999
\MOVE #2 TO #4
\MOVE #3 TO #5
\MOVE B TO D
\IF D=18432
\SUBTRACT 3 FROM #3
\ELSE
\IF D=19712
\ADD 4 TO #2
\ELSE
\IF D=20480
\ADD 3 TO #3
\ELSE
\IF D=19200
\SUBTRACT 4 FROM #2
\ENDIF
\MOVE 0 TO B
\IF #2>205 \MOVE 205 TO #2 \ENDIF
\IF #3>195 \MOVE 195 TO #3 \ENDIF
\SHOW #4,#5,34,34,X \MOVE 0 TO #9999
\JUMP CURSOR
\X HELLO
\MOVE 0 TO #8 ;ERROR CNTR
\X FIRST
\READ BYPASS08.PIC \MOVE 0 TO APPENDED
\WAIT RET 65535
\LOC 202,110 \OVE 0
\BL 200,0,319,199
\SHOW 0,0,1
\SHOW 52,91,20
\SHOW 102,83,16
\SHOW 116,109,22
\DRAW J121,83,C1U4L1D4L4D1R4H10U1F11U1H10
\LOC 170,0 \OVE 0 \WID 19 \HEI 199
When the angiogram
reveals that one
or more of the
arteries feeding
the heart is
almost blocked
(such as the one
shown here with an
\LOC 178,88 \OVE 0
arrow), the doctor
\LOC 186,99 \OVE 0
may recommend a
\LOC 194,110 \OVE 0
coronary bypass
 operation.
\DRAW J 192,121,C2,R118
\DRAW J 201,132,C2,R75
\WAIT RET 65535
\SHOW 16,0,28
\BL 10,0,15,80
\BL 0,82,48,85
\LOC 0,84 \WID 9 \HEI 99 \OVE 0
SAPHENOUS
\LOC 22,94 \WID 4 \OVE 0 \"VEIN
\DRAW J121,83,C0U4L1D4L4D1R4H10U1F11U1H10
\LOC 170,0 \WID 19 \HEI 199 \OVE 0
In a bypass
operation, the
surgeon removes
the saphenous vein
from the lower
leg.  (Other
veins in the
leg are able to
 take over the
\LOC 186,99 \OVE 0
function of the
 saphenous vein).
\BL 192,120,319,133
\WAIT RET 65535
\SHOW 0,0,29
\BL 0,49,102,50
\CLEAR SPRITES
\SPRITE W=0,51,75,104 \SPRINT [1]
\ROUNDS 1, SPEED 0
\RUN
\SHOW 52,91,20
\DRAW J84,53
\DRAW C1M-20,+12R1U6G1D5R1R5F1L7U1M+20,-12R2U1
\DRAW M+46,+26U4F1D4L6G1R7M-47,-27
\DRAW J59,62,C2,D6E1D5R2U7G1U5L2
\DRAW J135,83,C0,R5H1R5
\LOC 170,0 \WID 18 \HEI 199 \OVE 0
\"
Incisions are made
in the aorta and
in the clogged
coronary artery
past the point
of obstruction.
\"
\"
\BL 184,99,319,120
\WAIT RET 65535
\CLEAR SPRITES
\SPRITE L=0,0 W=0,0,111,60 \SPRINT [1]
\ROUNDS 1 SPEED 0
\RUN
\CLEAR SPRITES
\SPRITE W=63,61,134,80 \SPRINT [1]
\RUN
\CLEAR SPRITES
\BL 168,10,319,88
\SHOW 190,0,30
\LOC 74,3 \WID 11 \OVE 0 \HEI 99
 VEIN GRAFT
\DRAW J166,8,C1,R22H4L1F4D1G4R1E4L22
\LOC 170,30 \WID 18 \HEI 199 \OVE 0
Then the surgeon
takes a portion
of the vein graft
that has been
removed from
 the leg.  One
\LOC 178,96 \OVE 0
 end is sewn to
\LOC 186,107 \OVE 0
 the incision in
\LOC 194,118 \OVE 0
 the aorta.  The
  other end is
 sewn to the
coronary artery.
\WAIT RET 65535
\BL 168,32,319,99
\BL 185,100,319,123
\BL 192,124,319,141
\BL 192,142,319,163
\CLEAR SPRITES
\SPRIT W=0,0,200,20 \SPRINT [1]
\ROUDNS 1
\RUN
\CLEAR SPRITES
\BL 170,0,319,30
\SPRITE L=174,0 M=-2,0 X=A R=1,60 \SPRINT [30]
\SPRITE L=58,0 M=0,1 R=60,119 \SPRINT [30]
\ROUNDS 118
\RUN
\ZING 30 0,0,111,111 58,58,F
\ZING 31 0,0,20,20 53,57
\ZING 32 0,0,20,20 129,80
\LOC 170,0 \WID 18 \OVE 0 \HEI 199
An ample supply of
blood can now flow
through the newly
created coronary
artery.  The
obstruction has
been bypassed,
hence the name
 coronary bypass
\LOC 184,99 \OVE 0
operation.
\WAIT RET 65535
\SHOW 40,60,33
\LOC 170,0 \WID 18 \OVE 0 \HEI 199
If the patient has
several arteries
which are clogged
the surgeon may
perform a double
or even a triple
bypass.
\"
\"
\BL 184,99,289,110
\WAIT RET 65535
\X MIDDLE
\BL 0,0,320,200
\LOC 0,18 \OVE 0 \WID 40 \HEI 199
 Now that you know all about open heart
surgery, it's time you try an operation
of your own.  The following patient has
visited you, his doctor, complaining of
   chest pains.  You have performed
  angiography to find out if he needs
 bypass surgery.  The angiogram is now
   ready for viewing.  Look at it and
   decide whether your patient needs:
\"
         1) No bypass
         2) A single bypass
         3) A double bypass
\WAIT RETURN 65535
\X PAT-1
\BL 0,0,319,200
\SHOW 0,0,1
\SHOW 100,83,21
\SHOW 117,109,22
\SHOW 180,128,23
\SHOW 69,118,24
\SHOW 63,84,25
\MOVE 1 TO #7
\X PAT1A
\BL 188,0,320,110
\CALL LIST1
\LOC 190,48
\HEI 77
\OVE 0
\WID 17
\IF #1=1
"The patient is
sicker than you
think.  Try
again."
\WAIT NOW 21111
\JUMP PAT1A
\ELSE
\IF #1=2
"Wise decision,
doctor!"
\WAIT NOW 21111
\ELSE
\IF #1=3
"Take another
look at the
angiogram and
recommend
again."
\WAIT NOW 22111
\JUMP PAT1A
\ENDIF
\CALL MOVCR
\END
\X LIST1
\LOC 190,30
\OVE 0
\HEI 133
\WID 17
DOCTOR'S
RECOMMENDATION:
\"
1) No bypass
2) Single bypass
3) Double bypass
\LOC 20,174
\OVE 0
\WID 16
\HEI 88
Press 1,2 or 3
\MOVE 0 TO B
\X LIST2
\IF B=561
\MOVE 1 TO #1
\ELSE
\IF B=818
\MOVE 2 TO #1
\ELSE
\IF B=1075
\MOVE 3 TO #1
\ELSE
\JUMP LIST2
\ENDIF
\BLANK 188,30,320,122
\BL 0,174,200,188
\SHOW 190,0,26
\RETURN
\X MOVCR
\MOVE 106 TO #2
\MOVE 23 TO #3
\X MVCR5
\BL 188,0,319,122
\LOC 190,0
\HEI 133
\OV 0
\WID 17
Use your cursor
keys to indicate
the area to be
bypassed.  Press
"return" when
you are at the
correct section
of artery.
\ONKEY 7181 MVCR4
\CALL CURSOR
\X MVCR4
\ONKEY 7181
\IF #9999=1
\SHOW #2,#3,34,34,X
\MOVE 0 TO #9999
\ENDIF
\IF #7=1
\IF #2>65
\IF #2<90
\IF #3>77
\IF #3<102
\JUMP GOOD1
\ENDIF
\IF #7=2
\JUMP MVCR4
\ENDIF
\ADD 1 TO #8
\BL 188,0,320,125
\SHOW 190,0,26
\LOC 190,50
\OV 0
\HEI 99
\WID 17
\IF #8<4
Wrong!  If you
wish to avoid a
malpractice suit
I suggest you
try again!.
\MOVE 0 TO B
\WAIT NOW 22222
\JUMP MVCR5
\ELSE
You seem to be
confused.  Here
is the area that
needs a bypass,
and here is your
bypass graft.
\DOT 0,0,0
\DRAW J80,96,C1,R4L4D4U4F10
\WAIT NOW 15555
\ENDIF
\JUMP GOOD2
\X GOOD1
\BL 188,0,320,121
\SHOW 190,0,26
\LOC 190,48
\OV 0
\HEI 99
\WID 17
Precisely the
area that I
would bypass!
Here is your
bypass graft,
doctor.
\X GOOD2
\MOVE 210 TO #2
\MOVE 123 TO #3
\DOT 0,0,0
\SHOW #2,#3,2
\MOVE #2 TO #4
\MOVE #3 TO #5
\WAIT RET 65535
\DOT 0,0,0
\DRAW J80,96,C0,R4L4D4U4F10
\DRAW J54,66,C2R3U1R5D2L4D1L5U2
\DRAW J58,115,C0,E2U1E2U1R1D1G2D1G2
\X GRAF1
\BL 188,0,320,2
\LOC 190,0
\OV 0
\HE 128
\WID 17
\"
Incisions have
been made in the
coronary artery
and the aorta.
Use your cursor
keys to move the
bypass graft
into place.
\"
\"
\MOVE 0 TO B
\X LOOPX
\IF B=0 \JUMP LOOPX \ENDIF
\LOC 174,10 \OVE 0 \WID 18
The chief surgeon
will sew the graft
into place once it
is in the correct
       spot.
\"
\"
\"
\DRAW J169,8,C2,R150,D59L150,U59
\MOVE 0 TO #9999
\SHOW #2,#3,2,2,X
\CALL GRAFT
\BL 168,0,320,88
\SHOW 196,0,26
\SHOW 52,104,35
\SHOW 48,56,36
\DRAW J52,79,C2R5D1R2U1D1
\X BYP1D
\LOC 190,55
\HEI 99
\WID 16
\OV 0
Congratulations,
Doctor!  Another
life saved by
your brilliant
surgical skills!
\MOVE 1 TO #9997 \READ MENU.TXT
\X MENU
\MOVE 0 TO #9997 \READ MENU.TXT
\* END OF TEXT